home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Clipper Collection
/
Clipper Collection.iso
/
clipper7
/
nannws33.arc
/
CURTEST.PRG
< prev
next >
Wrap
Text File
|
1988-11-01
|
529b
|
29 lines
* Program: CurTest.prg
* Author: Gerry Braganza
* Version: Clipper Summer '87
* Note(s): Change cursor size so that cursor fills an entire
* character block.
*
* Copyright (c) 1988 Nantucket Corp.
x = 0
y = 13
* Call cursor function.
? "Cursor fills entire block"
CurSize(x,y)
INKEY(0)
* Cursor is in the upper character block.
x = 0
y = 2
? "Cursor is in the upper block"
CurSize(x,y)
INKEY(0)
* Return normal cursor size.
x = 12
y = 13
? "Cursor returns to normal"
CurSize(x,y)